MEMORANDUM 



TO T Distribution 

FROM David S. Escoffery 

SUBJECT: gr^j^ Demonstration Programs 



DATE February 3, 1969 



REFERENCE APD-9-111 



There are four demonstration programs which are resident files on the 
data center's SIGMA 7 BTM system. These programs are source files of 
BASIC, FORTRAN, and SYMBOL jobs which were incorporated into the BTM 
exhibit at the recent Fall Joint Computer Conference in San Francisco. 
We are making them available to S.D.S. personnel to aid in demonstrations 
of the Sigma 5/7 Batch Time-Sharing Monitor. 

The files are read-only files located in the PDF (Permanent Demonstration 
Files) account under the following names: 

@DEM01 

(SDEMOIA 

(aDEM02 

@DEM03 

(aDEM04 

To acquire the images, perform the following operations under your own 
account : 

1 FERRET 

>C0PY (aDEMOl (PDF), DEMON 

XIOPY (SDEMOIA (PDF), FINAL 

>COPY (aDEM02 (PDF), FORT 

>COPY (aDEMOa (PDF),SYM 

X:OPY (aDEM04 (PDF), CONTROL 

>X 

File (SDEMOl contains a BASIC program which demonstrates the following fea- 
tures of the language: 

PRINT, PRINTUSING, and Image statements 

Intrinsic functions 

Alphanumeric constants 

Serial assignment of variables within one statement 

Console input statements 

Computed GOTO statement 

CHAIN statement 



-2- 

Subroutine linkage (GOSUB /RETURN) 

REM statements for comments and/or spacing 

DIM statements imbedded in executable code 

Matrix input, print, copy, inversion, and multiplication statements 

User-defined functions 

FOR/NEXT loop (variable used only as counter, not as subscript) 

File @DEM01A is a companion to the above program. It is used to demon- 
strate BASIC chaining. It must be given the name FINAL when copied from 
the PDF account . 

File @DEM02 contains a FORTRAN IV-H program demonstrating the following 
features : 

IMPLICIT INTEGER 

Double Precision Complex Nos . 

LOGICAL statements 

NAMELIST functions 

DATA statements 

FORTRAN II compatibility 

Tabs 

In-line Sjmibol coding 

File (9DEM03 contains a BTM-SYMBOL program outputting a text message to 
the console. 

File (3DEM04 contains the control cards necessary to run the FORTRAN demon- 
stration in the background. The job card must be changed to reflect your 
name and account . 

S.D.S, personnel who have demonstration programs which they desire to be 
maintained permanently in PDF (e.g. a COBOL job) should submit the sources 
(paper tape, cards, or a file image) to this office with sufficient docu- 
mentation. Such examples will be appreciated. 



David S. Escoffery 
DSE/db 




!B,ASIC 
> 

>L0AD FINAL 
>LIST 



REM THIS IS THE ROUTINE CALLED 

PRINT 'BECAUSE YOU TYPED • AO * * I 
•BYE FOR NOW! * 



100 

200 

300 PRINT 

99999END 

> 

>CLEAR 

>L0AD DEMON 

>LIST 



•FINAL' 

AM QUITTING* 



®^^VVO 1 k 



U\«Tvt^ 6^ ®T:>^v-\oi 



100 PRINT 

110 ^RINTUSiNG_12Q., DAXCO;,^ X^RJ OJ ' Jlii,^ Q2 
J2 0_JJ hTs IS A DEMO N ST R AT ToN 0f"^"b AS I C^ N J^tttLtiUL^l^tifJL 

Tab Ao = ;^z£R0'^ ai = ionej^ a2 = jrwo^ 

140 PRINT "*■"" """ - ■ 

150 PRINT 'TYPE T0 QUIT> 1 FOR MATRIX EXAMPLE* 2 F0R FUNCTION EXAMPLE* 
160 INPUT Zl 

170 PRINT 'YOU TYPED IN^J^^ 
-180 0N Zl G0T0 200* 230" 

-185 PRINT AO • S0 WE G0 TO THE FINAL ROUTINE^ 
190 ^CHAiN^, 'FINAL* 

200 VRINf^Al * SO WE G0 T0 THE MATRIX EXAMPLE^ 
210 ^GOSUB^ 2 70 - 
220 "gOTO"^ 140 

230 PRINT A2 • S0 WE G0 T0 THE FUNCTION EXAMPLE' 
240 G0SUB 470 
250 GOTO 140 

260 REM THIS IS THE MATRIX EXAMPLE 

270 .PIM^ X(3*3)* YC3*3)* Z(3*3) 

280 PRINT 

290 PRINT 'TYPE IN A 3X3 MATRIX BY ROWS' 

300 MAT INPUT X 

310 PRINT 

330 PRINT 'THIS IS YOUR MATRIX AS TYPED' 

350 MAT PRINT X 

370 MAT Y = X 

380 MAT Z = INVCX*DO < 

385 MAT X = Y * Z" 

390 PRINT 

400 PRINT 'THIS IS ITS INVERSE' 

410 MAT PRINT Z 

415 PRINT 

420 PRINT 'THIS IS THE PRODUCT OF THE ORIGINAL AND THE INVERSE^ 

425 MAT PRINT X 

430 PRINT 

440 PRINT. 'ITS DETERMINANT IS EQUAL T0 • D 

450 ^nj-Biii- 

460 REM THIS IS THE FUNCTION EXAMPLE 

470 ^DEF. FNZCR*^ ^JlJJ = __SQR( MAX CR*S*T) ) 
jr7j,.F0R. K = 1 TO 2 
480 PRINT 

485 PRINT 'TYPE- IN 3 INTEGERS 0F 6 OR FEWER DIGITS EACH' 
490 INPUT 0* P* Q 

500 PRINTUSING 51O*^NZ<0* ?j Q) 

510 :THE SQUARE ROOT 0> THE LARGEST IS Pft^ .pnp ^ • 
5.1 5.,, NEXT K 
520 ReTuRN 
540 END 



10:48 01/10 

THIS IS A DEMONSTRATION 0F BASIC 0N 01/10/1969 AT 10:48 

TYPE T0 QUIT^ *1 FOR MATRIX EXAMPLE^ 2 F0R FUNCTION EXAMPLE 

?2 

YOU TYPED IN TWO S0 WE 60 T0 THE FUNCTION EXAMPLE 

TYPE IN 3 INTEGERS OF 6 OR FEWER DIGITS EACH 

?152>153^999999 

THE SQUARE ROOT 0F THE LARGEST IS 999.999 

TYPE IN 3 INTEGERS 0F 6 OR FEWER' DIGITS EACH 

?325>179^33 

THE SQUARE ROOT 0F THE LARGEST IS 18.028 

TYPE T0 QUIT> 1 F0R MATRIX EXAMPLE* 2 FOR FUNCTION EXAMPLE 

?1 

YOU TYPED IN ONE SO WE GO TO THE MATRIX EXAMPLE 

TYPE IN A 3X3 MATRIX BY ROWS 

?11 1, 222^568 

?731>555>898 

?150, 29*711 , 

THIS IS YOUR MATRIX AS TYPED 

111 222 568 

731 555. 898 

150 29 711 

THIS IS ITS INVERSE . • 

-4.61780E-03 1.77125E-03 1.45193E-03 

4.82425E-03 " 7.86708E-05 -3.95334E-03 

7.77449E-04 -3. 76 8 9 IE -04 1.26140E-03 
THIS IS THE PRODUCT 0F THE ORIGINAL AND THE INVERSE 

I 2.22045E-16 

7.07767E-16 1.00000 6.66134E-16 

I 

ITS DETERMINANT IS EQUAL T0-7 .981 36E+07 

TYPE T0 QUIT* 1 FOR MATRIX EXAMPLE* 2 FOR FUNCTION EXAMPLE 

?0 

YOU TYPED IN ZERO SO WE GO TO THE FINAL R0UTINE 

BECAUSE YOU TYPED ZERO* I AM QUITTING 
BYE FOR NOW! 

99999 HALT 



Fto^T^^fO -g-NA 'T>^v\oK)'s\*^Acr\oK) cS&\>^woa^ 



! ASSIGN] N^: SI ,CriLi^:, FnRT> 
lASSin^M M:qq, CP'ILE, RI'NJ) 



! PnRT9 
n P T T n \) 
1 

2 
3 
A 
5 
6 
7 

9 
10 
1 1 

13 
1 4 
15 
16 
17 

SURPRO 
RP:P 

p (? n r; 9 A 

/I R . 

50.0 

PROn-^A 

PROORA 



AM 

S: LS, 
C 



I /I 



GRA'N^S 
INJ 

>^ ALLH 
BI 
F 

■^ SIZ^. 



RO, S 
^^P^C 
I^'R). 

QHMP 

\)AMF, 
DATA 
X 

PRI.NJ 

X 'OUT 
IF f 
L'-J^ 3 
A I, 3 
ST'-', 
•■; R I T 
STHP 



RF: S9 



ini 

LFX 

LIS 

C'^ 
RI 

T 1 

AT 

PUT 

RIG 



r.PTI^xj'^ LS> RO, S. .. ASSIGN F 
T I\JTFGFR(R) 
CMP-'^16 
L1G, T,F 



10 Tn TER^'I\'AL 



3 
F f 



T /nF^'^0/RTGGn:R^ C'^iP^LOG 
f^, T,^/C 1 . 6> 3.2D0)> . TRUF. / .FALSF. / > 
G/2 137/4/4300/ 
/I 

CTPl^'SnS RT^'^ DF>^0\'STRATIO\J • , Tl , 
FRPj.v •, T/i5, 'FIRST O'JARTFR 1969') 
. G T . 6 ) LH n = . N) n T . C F . n R . . \) T . T ) 
RIG 

RIGGFR 
1 0^ DFMO) 



RF: SF 



GATI^M 
nnFR /jA.O 

51 .0 
5? 





RF: S7 


RF:SX 


CMP 


/iF. 


LOG 


RIG 







.0 



! LOAD 

FLFMFMT FILFS: RIM 

OPTIONS: 

SRFF RF 

SRFF RF 

SRFF RF 

SRFF RF 

SRFf^ RF 

F:I0 

F : 



1 M I ? 
GTRCD 
DATA 3 
OHFOR 
GTCAR 



SOS RTM DFi"~^0\'STRATinM 



SFV.LFV. = 
XFO? 
G'JTPUT FRO"vi 

^>r)Ff^O 

RinGFR = 21 3 7/|/i3 0P> C^P=C 1. 60000000000000 

-p.FMD 
STOP 



FIRST OUARTFR 1969 
,3.20000000000000 ),LOG=T, 



USFR FXIT. 
I 



■&vv^ - -5.Y^^oV eyA,w9^^ C©^«>AO^^ 



! ASSIGN M:SI:» ( FILERS YM) 

! SYMBOL 
0PTI0NS: 

SYSTEM SIG5 
1 0001 .000 

START LI^l 16 

S 00000 22100010 A 0002.000 

LI, 2 

3 00001 22200000 A 0003.000 

L00P LBiO 0UTPUT>2 

A 00002 72040000 F 0004.000 

CAL3>1 

5 00003 06100000 A 0005.000 

AI,2 1 

6 00004 20200001 A 0006.000 

BDR> 1 LOOP 

7 00005 64100002 0007.000 

CAL3,6 

8 00006 06600000 A 0008.000 
OUTPUT TEXT •: SYMBOL OUTPUT::' 

9 00007 7Af:2E8D4 A 0009.000 

00008 C2D60340 A 

00009 D6E:4H:3D7 a 
OOOOA E4F37A7A A 

EMD START 
10 00000 0010.000 

SYMBOL DICTIONARY 

LOOP 00002 4* 7 

OUTPUT 00007 4 9* 

START 00000 2* 10 

S OOOOB 

<B^ OOOOB 
** END 0F ASSEMBLY *+ 



»L0AD 




ELEMENT FILES: 




OPTIONS: M 




UDEF C200 


LOWEST LSC 


UDEF C20C 


HIGHEST LOG 


DEF C7D0 


M:D0 


^' 




SEV/.LEV. = 




XEO? 




: SYMBOL 0IJTPUT: : 




USER EXIT. 

f 








! ASSIG^J M: SI y Cf^ILE> O^J TROD 

insflrt job? y 
display for edit? y 

1 ■ ■ . ' 
!j,-)3 6431,MKTG,F 

2 - . 
! A S S I G^ M : S I ^ ( F I L E ^ DEi'lO 2 ^ -PDF) ,. ( SAVE) ' 

3 

!ASSIG>J M:B3;» (FILC> BINARY) 

A 

! ASSIGN M:L'-)> C^'ILI'J^LyFILfi:) 

5 

! ASSIGN iVi:LL> (FI LF:> LL^^I LE) 

r 

.'ASSIGN Vi 10:» CFILE:» OUTPUT) 

7 

!:^0RTRANH SI>L3^B3:»S 

F^ 

!LOPE (EF> C BINARY) )> CRX EC) 

EDIT? N 

JOB INSERTED. ID=OOOB 

STATUS CHECK? Y 

I D=: B 

WAITING. 

I D= B 

RUNNING. 

ID=3 ■ ■ 

COMPLETED. .. 

I 0= 

I^ERRET 

>LI ST BTM 

BINARY 

LLEILE 

LOEILE 

OUTPUT 

> EXAMINE :jUTPUT(3TM) 

3 

n 

tt 

•^DEM3 

BIGGER=2137<'^i302^ Cr':'P= ( 1 .6 0000000000000 > 3.20000000000000 )>LOG=T^ 

^< EN D 



C©'&«v\©A c^vck-r^ 



> EX AM I .\1 ^: L 3 F 1 1. E C B T f-'l ) 

r7 5 4>'^^S 



11 li^ (■lIG.GT.6)L?]G=.MaT. (F .gR..NlT.T) 

001 1000 



BIG 
SIN TO 
3G 
T 
SG 

5G 

- 1 

^ %^ 

'3 J 



L -J G 




>T£ST jUTPUTCBT'O 
"OiJTPUT .;AS CR£ATF:0 01,Wi, '69 AND HAS 2 GRA>JULF:S IM IT 



IE 


32300000 


IF- 


31300000 


20 


68200000 


21 


32300000 


22 


. 6 3 300000 


2 3 


32300000 


2A 


6 9 300000 


25 


223'^:-^.-^Fi^ 


26 


6^000000 


27 


22 300000 


23 


35300000 



L 17> 3 

CW;. 3 

RLE 
AG LW^3 

BE 

L ■ -^ 3 
BNE 

LI:» 3 

B 
5G LI;»3 

6G STW, 3 

3G ■ RES 



1 BYE 

1/l/</'69 09:51 



